home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Example Scripts / Example Scripts (as text) / Quill Scripts / Remote Clipboard < prev    next >
Encoding:
Text File  |  1992-12-02  |  401 b   |  17 lines  |  [TEXT/ToyS]
  1. tell (choose application with prompt ¬
  2.     "Select Quill on a machine to get its clipboard")
  3.     if not frontmost then
  4.         activate
  5.         on error
  6.             display dialog "Clipboard may not be up to date… " & ¬
  7.                 "Quill is not frontmost"
  8.         end error
  9.     end if
  10.     copy clipboard to x
  11. end tell
  12. tell application "Quill"
  13.     activate
  14.     set clipboard to x
  15.     display dialog "Clipboard set with " & length of x & " formats"
  16. end tell
  17.